Private Sub btn_Click()

    Dim  As String
    Dim  As String

     = ThisWorkbook.Path & "\Image\"
     = "Default.jpg"

    With lst
        .Selected(.ListIndex) = False
    End With

    img.Picture = LoadPicture(Filename:= & )

End Sub
